admin_passaudit.asp 星梦奇缘交友网 1 - ASP源码程序

www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_passaudit.asp

    <!-- #include file="config.asp" -->
<!-- #include file="admin_verify.asp" -->

<%
Response.Expires=-1
if isnumeric(request("id"))=false or request("id")="" then
	Response.Write "<html><meta http-equiv=refresh content=0;url=admin.asp></html>"
	Response.End
end if

set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
CreateConn cn,dbtype

dim guestflag
rs.Open "SELECT guestflag FROM main WHERE id=" & request("id"),cn,,3,1

if not rs.EOF then
	guestflag=rs("guestflag")
	if clng(guestflag and 16)<>0 then
		rs("guestflag")=guestflag-16
		rs.Update
	end if
end if

rs.Close
cn.close
set rs=nothing
set cn=nothing

if request("type")<>"" and request("searchtxt")<>"" then
	Response.Redirect "admin_search.asp?page=" & server.URLEncode(request("page")) & "&type=" & server.URLEncode(request("type")) & "&searchtxt=" & server.URLEncode(request("searchtxt"))
else
	Response.Redirect "admin.asp?page=" & request("page")
end if
%>